home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 80 / 64er_Magazin_Sonderheft_80_19xx_Markt__Technik_de_Side_B.d64 / dokfonts disk 3 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  37 lines
  1. 10 poke53280,0:poke53281,0
  2. 20 printchr$(14)"[147]"tab(15)"[194]amdok 20"tab(97)"von"tab(49)"[200]ans-[202]uergen [218]iethmann"
  3. 30 print"[194]itte defekte [218]eichensaetze 1 [211]eite 2"tab(80)"in das [204]aufwerk legen"
  4. 40 print"und eine [212]aste druecken":wait203,64,64:open1,8,15,"i":open2,8,2,"#"
  5. 50 print#1,"u1:"2;0;17;9:print#1,"b-p"2;118:get#2,a$:a=asc(a$+chr$(0))
  6. 60 ifa<>243thenprint"[147]nicht auf dieser [196]isk anwendbar!":close2:close1:end
  7. 70 readn:ifn<0then90
  8. 80 print#1,"m-w"chr$(lb)chr$(05)chr$(1)chr$(n):lb=lb+1:goto70
  9. 90 on abs(n) goto100,110,140
  10. 100 read lb:goto 70
  11. 110 if si=1 thenprint#1,"u2:";2;0;t;s
  12. 120 read t: read s
  13. 130 print#1,"u1:";2;0;t;s:si=1:goto70
  14. 140 print#1,"u2:";2;0;t;s:print#1,"i"
  15. 150 close2:close1:print"[218]eichensaetze [211]eite 2 nun wieder"tab(80)"verwendbar!"
  16. 160 data-2,18,0,-1,0,18,1,65,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  17. 170 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  18. 180 data0,0,0,0,0,0,0,0,13,188,189,5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  19. 190 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  20. 200 data0,0,0,0,0,0,0,0,13,207,159,1,70,79,78,84,83,58,32,50,32,118,111,110
  21. 210 data32,52,160,160,160,160,68,66,48,50,54,160,160,160,160,19,8,71,69,79,83
  22. 220 data32,102,111,114,109,97,116,32,86,49,46,48,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  23. 230 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  24. 240 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-2,18,1,-1,0,18,9,195,1,16,71,97,114
  25. 250 data97,110,111,115,160,160,160,160,160,160,160,160,160,1,8,1,8,88,7,6,0,0
  26. 260 data14,0,0,0,195,1,18,71,108,97,117,107,111,115,160,160,160,160,160,160
  27. 270 data160,160,160,1,10,1
  28. 271 data8,88,7,6,0,0,15,0,0,0,195,2,2,71,121,103,101,115,160,160,160,160,160
  29. 280 data160,160,160,160,160,160,2,15,1,8,88,7,6,0,0,27,0,0,0,195,3,3,72,97,108
  30. 290 data105,115,107,111,115,160,160,160,160,160,160,160,160,3,16,1,8,88,7,6
  31. 300 data0,0,10,0,0,0,195,4,5,72,101,108,101,105,111,115,160,160,160,160,160
  32. 310 data160,160,160,160,4,18,1,8,88,7,6,0,0,14,0,0,0,195,4,12,72,101,115,121,99
  33. 320 data104,105,111,115,160,160,160,160,160,160,160,4,4,1,8,88,7,6,0,0,10,0,0,0
  34. 330 data195,5,7,72,105,112,112,111,108,121,116,111,115,160,160,160,160,160,160
  35. 340 data5,20,1,8,88,7,6,0,0,14,0,0,0,195,6,14,72,121,112,101,114,105,111,110
  36. 350 data160,160,160,160,160,160,160,160,5,6,1,8,88,7,6,0,0,10,0,-3
  37.